home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00019_Script_Snow < prev    next >
Text File  |  1997-09-30  |  2KB  |  50 lines
  1. -- Snow
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Property pSpeed,pStrength,pIntensity, pChroma
  8.  
  9. on getPropertyDescriptionList
  10.   if not alphamaniacCheck(the currentSpriteNum) then exit
  11.   
  12.   set pList=[:]
  13.   addProp pList,#pSpeed,[format:#integer,¼
  14.                            comment:"Speed:",¼
  15.                            Default:7,range:[min:0,max:50]]
  16.   
  17.   addProp pList,#pStrength,[format:#integer,¼
  18.                               comment:"Strength:",¼
  19.                               Default:4,range:[min:0,max:6]]
  20.   
  21.   addProp pList,#pIntensity,[format:#integer,¼
  22.                               comment:"Intensity:",¼
  23.                               Default:4,range:[min:1,max:16]]
  24.   addProp pList,#pChroma,[format:#integer,¼
  25.                               comment:"Chroma:",¼
  26.                               Default:0,range:[min:0,max:8]]
  27.   
  28.   return pList
  29. end
  30.  
  31. on beginSprite me
  32.   set s=the spriteNum of me
  33.   if not alphaManiac(s) then exit
  34.   
  35.   snow(sprite s,[speed:pSpeed,strength:pStrength,intensity:pIntensity, chroma:pChroma])
  36. end
  37.  
  38. on getBehaviorDescription me
  39.   set msg= "Let it snow, let it snow, let it snow." & return & "After all, every AlphaManiac is born in Colorado."
  40.   put return & return after msg
  41.   put "Parameters:" & return & "-----------" & return  after msg
  42.   put "*     Speed: 0 to 50" & return after msg
  43.   put "* Strength: 0 to 6" & return after msg
  44.   put "* Intensity: 1 to 16" & return after msg
  45.   put "* Chroma: 0 to 8" after msg
  46.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  47.   return msg
  48. end
  49.  
  50.